PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/delphi1/lessons.exe/lesson3/CALC3/CALC3.DFM/CALC3.txt

Text File | 1996-01-02 | 3.0 KB | 183 lines

object CalcForm: TCalcForm
  Left = 234
  Top = 93
  Width = 275
  Height = 384
  Caption = 'CalcForm'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnActivate = FormActivate
  OnClose = FormClose
  TextHeight = 16
  object DisplayEd: TEdit
    Left = 8
    Top = 8
    Width = 201
    Height = 25
    TabOrder = 0
  end
  object Btn8: TButton
    Left = 8
    Top = 41
    Width = 60
    Height = 33
    Caption = '8'
    TabOrder = 1
    OnClick = Btn8Click
  end
  object Btn6: TButton
    Left = 8
    Top = 81
    Width = 60
    Height = 33
    Caption = '6'
    TabOrder = 2
    OnClick = Btn6Click
  end
  object Btn4: TButton
    Left = 8
    Top = 121
    Width = 60
    Height = 33
    Caption = '4'
    TabOrder = 3
    OnClick = Btn4Click
  end
  object Btn2: TButton
    Left = 8
    Top = 161
    Width = 60
    Height = 33
    Caption = '2'
    TabOrder = 4
    OnClick = Btn2Click
  end
  object Btn0: TButton
    Left = 8
    Top = 201
    Width = 60
    Height = 33
    Caption = '0'
    TabOrder = 5
    OnClick = Btn0Click
  end
  object Btn9: TButton
    Left = 80
    Top = 41
    Width = 60
    Height = 33
    Caption = '9'
    TabOrder = 6
    OnClick = Btn9Click
  end
  object Btn7: TButton
    Left = 80
    Top = 81
    Width = 60
    Height = 33
    Caption = '7'
    TabOrder = 7
    OnClick = Btn7Click
  end
  object Btn5: TButton
    Left = 80
    Top = 121
    Width = 60
    Height = 33
    Caption = '5'
    TabOrder = 8
    OnClick = Btn5Click
  end
  object Btn3: TButton
    Left = 80
    Top = 161
    Width = 60
    Height = 33
    Caption = '3'
    TabOrder = 9
    OnClick = Btn3Click
  end
  object Btn1: TButton
    Left = 80
    Top = 201
    Width = 60
    Height = 33
    Caption = '1'
    TabOrder = 10
    OnClick = Btn1Click
  end
  object BtnEquals: TButton
    Left = 80
    Top = 240
    Width = 129
    Height = 33
    Caption = '='
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'Terminal'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 11
    OnClick = BtnEqualsClick
  end
  object BtnDiv: TButton
    Left = 152
    Top = 40
    Width = 57
    Height = 33
    Caption = '/'
    TabOrder = 12
    OnClick = BtnDivClick
  end
  object BtnMult: TButton
    Left = 152
    Top = 80
    Width = 57
    Height = 33
    Caption = '*'
    TabOrder = 13
    OnClick = BtnMultClick
  end
  object BtnMinus: TButton
    Left = 152
    Top = 120
    Width = 57
    Height = 33
    Caption = '-'
    TabOrder = 14
    OnClick = BtnMinusClick
  end
  object BtnPlus: TButton
    Left = 152
    Top = 160
    Width = 57
    Height = 33
    Caption = '+'
    TabOrder = 15
    OnClick = BtnPlusClick
  end
  object BtnDot: TButton
    Left = 149
    Top = 201
    Width = 60
    Height = 33
    Caption = '.'
    TabOrder = 16
    OnClick = BtnDotClick
  end
  object ClearBtn: TButton
    Left = 8
    Top = 240
    Width = 65
    Height = 33
    Caption = '&Clear'
    TabOrder = 17
    OnClick = ClearBtnClick
  end
end